<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="function.asp" -->
<!-- #include file="comSub.asp" -->
<!-- #include file="function_charCode.asp" -->

<%call tslt_useridentity123_error_Exit()%>

<%
dim indexpagehidden2
indexpagehidden2=request("indexpagehidden")

dim communityid2,communitypagehidden2
communityid2=request("communityidhidden")
communitypagehidden2=request("communitypagehidden")

dim boardid2,boardpagehidden2
boardid2=request("boardidhidden")
boardpagehidden2=request("boardpagehidden")

dim isBPartQuer2,boardidhidden2,BPPagehidden2
isBPartQuer2=request("isBPartQuer")
boardid2=request("boardidhidden")
BPPagehidden2=request("BPPagehidden")

Call synthetizeManage()

Sub synthetizeManage()
    If request("chk_CEBM")="yes" Then 
	    Call continueEngageBM()
    Else
	    Call continueEngageBM2()
    End If 
    If request("boardmanageusertext")<>"" Then 
           call MYappiont()
    End If 
    If request("boardmanageusertext2")<>"" Then
           Call MYrepeal()
    End If 
    If isBPartQuer2="yes" Then
        If BPPagehidden2<>"" Then
            Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=BPartQuer.asp?boardid="&boardid2&"&page="&BPPagehidden2&"&keyword="&request("BPKeywordhidden")&"'>"
        Else
            Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=BPartQuer.asp?boardid="&boardid2&"&keyword="&request("BPKeywordhidden")&"'>"
        End If  
    End If
End Sub 

sub MYappiont()
		 If trim(request("boardmanageusertext"))=session("tslt_username") Then 
             Exit Sub 
		 End If 
         dim rs,sql
         Set rs=Server.CreateObject("ADODB.RecordSet")
         sql="select * from ts_userinfo WHERE bclass<>1 and bclass<>2"
         rs.open sql,Conn,1,2
               do while not rs.eof
					 If rs("username")=session("tslt_username") Then 
                         Exit Sub 
					 End If 
                     if rs("username")=trim(request("boardmanageusertext")) then
                            rs("bclass")=3
                            sql2="insert into admin(username,boardid,boardname) values('"&trim(request("boardmanageusertext"))&"','"&boardid2&"','"&boardname(boardid2)&"')"
                            conn.Execute(sql2)
                            Response.write "<SCRIPT language=Javascript>passwords(promptInfo_progress(20))</SCRIPT>" & trim(request("boardmanageusertext")) & "<SCRIPT language=Javascript>passwords(promptInfo_progress(21))</SCRIPT>"
                    end if 
                    rs.movenext
               loop
         rs.close
         set rs=nothing
end sub

sub MYrepeal()
		 If trim(request("boardmanageusertext2"))=session("tslt_username") Then 
             Exit Sub 
		 End If 
         dim rs,sql
         Set rs=Server.CreateObject("ADODB.RecordSet")
         sql="select * from ts_userinfo WHERE bclass<>1 and bclass<>2"
         rs.open sql,Conn,1,2
               do while not rs.eof
					 If rs("username")=session("tslt_username") Then 
                         Exit Sub 
					 End If 
                     if rs("username")=trim(request("boardmanageusertext2")) then
                           conn.Execute("delete from admin where username='"&trim(request("boardmanageusertext2"))&"' and clng(boardid)='"&boardid2&"' and mark=false")
                           sql2="select username from admin where username='"&trim(request("boardmanageusertext2"))&"'"
                           set rs2=conn.Execute(sql2)
                                 if rs2.eof and rs2.bof then
                                      conn.Execute("update ts_userinfo set bclass=0 where username='"&trim(request("boardmanageusertext2"))&"'")
                                 end if
                           rs2.close
                           set rs2=nothing
                           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_progress(22))</SCRIPT>" & trim(request("boardmanageusertext2")) & "<SCRIPT language=Javascript>passwords(promptInfo_progress(23))</SCRIPT>"
                    end if 
                    rs.movenext
              loop
         rs.close
         set rs=nothing
end sub

Sub continueEngageBM()    
    Dim RS,SQL
    Set RS=Server.CreateObject("ADODB.RecordSet")
    SQL="select * from option1"
    RS.open SQL,Conn,1,1
        SQL= "update option1 set CEBM=true"
        conn.execute(sql)
    RS.close
    set RS = Nothing
End Sub

Sub continueEngageBM2()    
    Dim RS,SQL
    Set RS=Server.CreateObject("ADODB.RecordSet")
    SQL="select * from option1"
    RS.open SQL,Conn,1,1
        SQL= "update option1 set CEBM=false"
        conn.execute(sql)
    RS.close
    set RS = Nothing
End Sub

Set rs=Server.CreateObject("ADODB.RecordSet")
SQL="Select * From article"
rs.open SQL,Conn,1,2

select case request("act")
case 1
       do while not rs.eof
           n=trim(cstr(rs("id")))
           if request.form(n)="on" Then
               If session("tslt_useridentity")=3 Or session("tslt_useridentity")=1 Or session("tslt_useridentity")=2 Then
				   sql= "update article set dustbin=true,top_temp=false,jinghua=false,top1=false,topfirst=false,lockarticle=false,transmit=false,adminindex=false,board_bulletin=false where id="&rs("id")
                   conn.execute(sql)
			   End If 
           end if
           rs.movenext
       loop

    If session("tslt_useridentity")=3 Or session("tslt_useridentity")=1 Or session("tslt_useridentity")=2 Then
      Set rs=Server.CreateObject("ADODB.RecordSet")
      SQL="Select * From article"
      rs.open SQL,Conn,1,2
           do while not rs.eof
                n=trim(cstr(rs("id")))
                if request.form(n)="on" then
                      Set Scorers=Server.CreateObject("ADODB.RecordSet")
                      ScoreSQL="Select * from ts_userinfo where username = '" & rs("User") &"'"
                      Scorers.open ScoreSQL,Conn,1,2
                             if not Scorers.eof Then
                                   DelMainScore2= ScoreRs("UserIntegral") + UserScore("DelMainScore")
                                   ScoreRs("UserIntegral") = DelMainScore2
                                   ScoreRs.update
                             end if
                     Scorers.close
                     set Scorers=nothing
              end if
              rs.movenext
        loop 
    End If 
    Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(1))</SCRIPT>"

case 2
   do while not rs.eof
         n=trim(cstr(rs("id")))
         if request.form(n)="on" Then
                sql= "update article set jinghua=true,top1=false,topfirst=false,lockarticle=false,transmit=false,adminindex=false,board_bulletin=false,dustbin=false where id="&rs("id")
                conn.execute(sql)
                if rs("User")<>"" then
                      Sql2 = "Select * from ts_userinfo where username = '" & rs("User") &"'"
                      set rs2 = conn.Execute (Sql2)
                            JinghuaScore2= rs2("UserIntegral")+UserScore("JinghuaScore")
                             conn.Execute ("update ts_userinfo set UserIntegral='"&JinghuaScore2&"'  where username = '"&rs2("username") &"'")
                       rs2.close
                       set rs2 =nothing
                end if
         end if
         rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(2))</SCRIPT>"

case 3
   do while not rs.eof
        n=trim(cstr(rs("id")))
        if request.form(n)="on" then
              sql= "update article set jinghua=false where id="&rs("id")
              conn.execute(sql)
        end if
        rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(3))</SCRIPT>"

case 4
   do while not rs.eof
   n=trim(cstr(rs("id")))
         if request.form(n)="on" Then
                 sql= "update article set top1=true,jinghua=false,topfirst=false,lockarticle=false,transmit=false,adminindex=false,board_bulletin=false,dustbin=false where id="&rs("id")
                 conn.execute(sql)
                if rs("User")<>"" then
                       Sql2 = "Select * from ts_userinfo where username = '" & rs("User") &"'"
                       set rs2 = conn.Execute (Sql2)
                              dim  TopScore2
                              TopScore2= rs2("UserIntegral")+UserScore("TopScore")
                              conn.Execute ("update ts_userinfo set UserIntegral='"&TopScore2&"'  where username = '"&rs2("username") &"'")
                        rs2.close
                        set rs2 =nothing
                 end if
         end if
   rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(4))</SCRIPT>"

case 5
   do while not rs.eof
         n=trim(cstr(rs("id")))
         if request.form(n)="on" then
                 'sql= "update article set top1=false,jinghua=false ,topfirst=false, lockarticle=false,transmit=false,adminindex=false where id="&rs("id")
                 sql= "update article set top1=false where id="&rs("id")
                 conn.execute(sql)
         end if
         rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(5))</SCRIPT>"

case 6
      do while not rs.eof
            n=trim(cstr(rs("id")))
            if request.form(n)="on" Then
                   sql= "update article set lockarticle=true,jinghua=false,top1=false,topfirst=false,transmit=false,adminindex=false,board_bulletin=false,dustbin=false where id="&rs("id")
                   conn.execute(sql)
                   if rs("User")<>"" then
                          Sql2 = "Select * from ts_userinfo where username = '" & rs("User") &"'"
                          set rs2 = conn.Execute (Sql2)
                                dim  LockarticleScore2
                               LockarticleScore2= rs2("UserIntegral") + UserScore("LockarticleScore")
                               conn.Execute ("update ts_userinfo set UserIntegral='"&LockarticleScore2&"'  where username = '"&rs2("username") &"'")
                          rs2.close
                          set rs2 =nothing
                   end if
            end if
            rs.movenext
      loop 
Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(8))</SCRIPT>"

case 7
   do while not rs.eof
        n=trim(cstr(rs("id")))
        if request.form(n)="on" then
               sql= "update article set lockarticle=false where id="&rs("id")
               conn.execute(sql)
        end if
        rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(9))</SCRIPT>"

case 8
   do while not rs.eof
        n=trim(cstr(rs("id")))
        if request.form(n)="on" Then
                sql= "update article set transmit=true,jinghua=false,top1=false,topfirst=false,lockarticle=false,adminindex=false,board_bulletin=false,dustbin=false where id="&rs("id")
                conn.execute(sql)
        end if
        rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(10))</SCRIPT>"

case 9
   do while not rs.eof
        n=trim(cstr(rs("id")))
        if request.form(n)="on" then
               sql= "update article set transmit=false where id="&rs("id")
               conn.execute(sql)
        end if
        rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(11))</SCRIPT>"

case 10
      if boardid2<>"" Then
          If session("tslt_useridentity")=3 Or session("tslt_useridentity")=1 Or session("tslt_useridentity")=2Then
              call all_bd_dustbin(clng(boardid2))
		  End If 
      end If
Sub all_bd_dustbin(aaa)
     conn.execute("update article set dustbin=true,top_temp=false,lockarticle=false,transmit=false where jinghua=false and top1=false and topfirst=false and adminindex=false and board_bulletin=false and boardid="&aaa)
    Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(12))</SCRIPT>"
End Sub

case 11
     Response.write ""

case 12
    dim bbCount,id2
    bbCount=0
    do while not rs.eof
          n=trim(cstr(rs("id")))
          if request.form(n)="on" then
                if request("boardidhidden")<>"" then
                      bbCount=bbCount+1
                      id2=rs("id")
                 end if
           end if
           If rs.EOF Then Exit do
           rs.movenext
    loop 
    if bbCount>1 then
           Response.write "<SCRIPT language=Javascript>passwords(promptInfo_progress(13))</SCRIPT>"
    elseif bbCount=1 then
                conn.execute("update article set board_bulletin=false where cstr(boardid)="&request("boardidhidden"))
                conn.execute("update article set board_bulletin=true,transmit=false,jinghua=false,top1=false,topfirst=false,lockarticle=false,adminindex=false,dustbin=false where cstr(id)='"&id2&"' and cstr(boardid)="&request("boardidhidden"))
                Response.write "<SCRIPT language=Javascript>passwords(promptInfo_progress(14))</SCRIPT>"
    end if

case 13
                conn.execute("update article set board_bulletin=false where cstr(boardid)="&request("boardidhidden"))
                Response.write "<SCRIPT language=Javascript>passwords(promptInfo_progress(15))</SCRIPT>"

case 14
   dim tempid
   empid=false
   do while not rs.eof
        n=trim(cstr(rs("id")))
        if request.form(n)="on" then
               if request.form("HiddenSelect")>0 then
                     dim sourceboardname
                     sourceboardname=boardname(ArticleBoardid(rs("id"))) 
                     conn.execute("update article set sourceBN='"&sourceboardname&"' where id="&rs("id"))
                     sql= "update article set boardid='"&request.form("HiddenSelect")&"',Communityid='"&Communityid_B_boardid(request.form("HiddenSelect"))&"',migrate=true where id="&rs("id")
                     conn.execute(sql)
                     set rs2=conn.execute("select * from article where id="&rs("id"))
                     set rs3=conn.execute("select * from board where cstr(boardid)=" &rs2("boardid"))
                           dim boardname2
                           boardname2=rs3("boardname")
                     rs2.close
                     Set rs2 = Nothing
                     rs3.close
                     Set rs3 = Nothing
               end if
               tempid=true
        end if
        rs.movenext
   loop 
   if tempid=true then
         Response.write "<SCRIPT language=Javascript>passwords(promptInfo_progress(18))</SCRIPT>" &boardname2& "<SCRIPT language=Javascript>passwords(promptInfo_progress(19))</SCRIPT>"
   end if  

case 15
   do while not rs.eof
   n=trim(cstr(rs("id")))
         if request.form(n)="on" Then
                sql= "update article set topfirst=true,jinghua=false,top1=false,lockarticle=false,transmit=false,adminindex=false,board_bulletin=false,dustbin=false where id="&rs("id")
                conn.execute(sql)
                if rs("User")<>"" then   
                       Sql2 = "Select * from ts_userinfo where username = '" & rs("User") &"'"
                       set rs2 = conn.Execute (Sql2)
                             TopScore2= rs2("UserIntegral")+UserScore("TopScore")
                             conn.Execute ("update ts_userinfo set UserIntegral='"&TopScore2&"' where username = '"&rs2("username") &"'")
                       rs2.close
                       set rs2 =nothing
                end if
         end if
   rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(6))</SCRIPT>"

case 16
   do while not rs.eof
        n=trim(cstr(rs("id")))
        if request.form(n)="on" then
               sql= "update article set topfirst=false where id="&rs("id")
               conn.execute(sql)
        end if
         rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(7))</SCRIPT>"

case 17
   do while not rs.eof
        n=trim(cstr(rs("id")))
        if request.form(n)="on" Then
                 sql= "update article set adminindex=true,jinghua=false ,top1=false,topfirst=false, lockarticle=false,transmit=false,board_bulletin=false,dustbin=false where id="&rs("id")
                 conn.execute(sql)
                 if rs("User")<>"" then  
                        Sql2 = "Select * from ts_userinfo where username = '" & rs("User") &"'"
                        set rs2 = conn.Execute (Sql2)
                              TopScore2= rs2("UserIntegral")+UserScore("TopScore")
                              conn.Execute ("update ts_userinfo set UserIntegral='"&TopScore2&"'  where username = '"&rs2("username") &"'")
                        rs2.close
                        set rs2 =nothing
                 end if
        end if
        rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(16))</SCRIPT>"

case 18
   do while not rs.eof
        n=trim(cstr(rs("id")))
        if request.form(n)="on" then
               sql= "update article set adminindex=false where id="&rs("id")
               conn.execute(sql)
        end if
        rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(17))</SCRIPT>"

case 19
   do while not rs.eof
        n=trim(cstr(rs("id")))
        if request.form(n)="on" then
              sql= "update article set dustbin=false where id="&rs("id")
              conn.execute(sql)
        end if
        rs.movenext
   loop 
   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(24))</SCRIPT>"

case 20
       do while not rs.eof
           n=trim(cstr(rs("id")))
           if request.form(n)="on" then                    
               If session("tslt_useridentity")=1 Or session("tslt_useridentity")=2 Then
                   sSql = "SELECT d_SavePathFileName FROM article WHERE cstr(id)="&rs("id")
                   set rs1=server.createobject("adodb.recordset")
                   Rs1.Open sSql, Conn, 0, 1
                         Dim d_SavePathFileName2
                         If Not Rs1.Eof Then
                                 d_SavePathFileName2 = Rs1("d_SavePathFileName")
                         End If
                         Dim aSavePathFileName
                         aSavePathFileName = Split(d_SavePathFileName2, "|")
                         Dim i
                         For i = 0 To UBound(aSavePathFileName)
                                Call DoDelFile(aSavePathFileName(i))
                         Next
                   Rs1.Close
                   set Rs1=Nothing 

                   rSql = "SELECT r_SavePathFileName FROM reply WHERE cstr(reply_id)="&rs("id")
                   set rs2=server.createobject("adodb.recordset")
                   Rs2.Open rSql, Conn, 0, 1
                        do while not rs2.eof
                               Dim r_SavePathFileName2
                               If Not Rs2.Eof Then
                                       r_SavePathFileName2 = Rs2("r_SavePathFileName")
                               End If
                               Dim bSavePathFileName
                               bSavePathFileName = Split(r_SavePathFileName2, "|")
                               Dim j
                               For j = 0 To UBound(bSavePathFileName)
                                      Call DoDelFile(bSavePathFileName(j))
                               Next
                               rs2.movenext
                        loop
                   Rs2.Close
                   set Rs2=Nothing 
			   End If 
           end if
           rs.movenext
       loop 
                   
    If session("tslt_useridentity")=1 Or session("tslt_useridentity")=2 Then
       Set rs=Server.CreateObject("ADODB.RecordSet")
       SQL="Select * From article"
       rs.open SQL,Conn,1,2
           do while not rs.eof
                 n=trim(cstr(rs("id")))
                 if request.form(n)="on" then
                       sql="delete from reply where Cstr(reply_id)="&rs("id")
                       conn.execute(sql)
                      sql="delete from article where id="&rs("id")
                      conn.execute(sql)
                 end if
                 rs.movenext
           loop 
    End If 
    Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(25))</SCRIPT>"

case 21
		  If session("tslt_useridentity")=1 Or session("tslt_useridentity")=2 Then 
              call delAll_dustbin(clng(boardid2))
		  End If 
sub delAll_dustbin(aaa)
            dim rs,sql
            set rs=server.createobject("adodb.recordset")
            sql = "select * FROM article WHERE dustbin=true and boardid="&aaa
            rs.Open sql,conn,1,2
                   do while not rs.eof
                           dim Rs1,sSql
                           set Rs1=server.createobject("adodb.recordset")
                           sSql = "SELECT d_SavePathFileName FROM article WHERE id = " & rs("id")
                           Rs1.Open sSql, Conn, 0, 1
                                   Dim d_SavePathFileName2
                                   If Not Rs1.Eof Then
                                            d_SavePathFileName2= Rs1("d_SavePathFileName")
                                   End If
                                  Dim aSavePathFileName2
                                  aSavePathFileName2 = Split(d_SavePathFileName2, "|")
                                  Dim i2
                                  For i2 = 0 To UBound(aSavePathFileName2)
                                         Call DoDelFile(aSavePathFileName2(i2))
                                   Next
                           Rs1.Close
                           set Rs1=Nothing
                           rs.movenext
                  loop 
           rs.close
           set rs=nothing

           set rs=server.createobject("adodb.recordset")
           sql = "select * FROM article WHERE dustbin=true and boardid="&aaa
           rs.Open sql,conn,1,2
                  do while not rs.eof
                         dim Rs2,rSql
                         set Rs2=server.createobject("adodb.recordset")
                         rSql = "SELECT r_SavePathFileName FROM reply WHERE cstr(reply_id)= " & rs("id")
                         Rs2.Open rSql, Conn, 0, 1
                                 do while not Rs2.eof
                                        Dim r_SavePathFileName2
                                        If Not Rs2.Eof Then
                                                r_SavePathFileName2= Rs2("r_SavePathFileName")
                                        End If
                                        Dim bSavePathFileName2
                                        bSavePathFileName2 = Split(r_SavePathFileName2, "|")
                                        Dim j2
                                        For j2 = 0 To UBound(bSavePathFileName2)
                                               Call DoDelFile(bSavePathFileName2(j2))
                                        Next
                                       rs2.movenext
                                 loop
                         conn.execute("delete FROM reply WHERE cstr(reply_id)= " & rs("id"))
                         Rs2.Close
                         set Rs2=Nothing 
                         rs.movenext
                   loop
                   conn.execute("delete FROM article WHERE dustbin=true and boardid="&aaa)
                   Response.write"<SCRIPT language=Javascript>passwords(promptInfo_progress(26))</SCRIPT>"
           rs.close
           set rs = Nothing
end sub

end select

call myreturn()

RS.Close
Set RS = Nothing

Call conn_Nothing()

sub myreturn()
       if indexpagehidden2<>"" then
              Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=index.asp?page="&indexpagehidden2&"&lockarticle="&request("indexlockarticlehidden")&"&secret="&request("indexsecrethidden")&"&keyword="&request("indexkeywordhidden")&"&jinghua="&request("indexjinghuahidden")&"&transmit="&request("indextransmithidden")&"&sel1="&request("indexsel1hidden")&"&dustbin="&request("indexHidden_dustbin")&"'>"
       elseif communitypagehidden2<>"" then
              Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=community.asp?communityid="&communityid2&"&page="&communitypagehidden2&"&lockarticle="&request("communitylockarticlehidden")&"&secret="&request("communitysecrethidden")&"&keyword="&request("communitykeywordhidden")&"&jinghua="&request("communityjinghuahidden")&"&transmit="&request("communitytransmithidden")&"&sel1="&request("communitysel1hidden")&"&dustbin="&request("communityHidden_dustbin")&"'>"
       elseif boardpagehidden2<>"" then
              Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=board.asp?boardid="&boardid2&"&page="&boardpagehidden2&"&lockarticle="&request("boardlockarticlehidden")&"&secret="&request("boardsecrethidden")&"&keyword="&request("boardkeywordhidden")&"&jinghua="&request("boardjinghuahidden")&"&transmit="&request("boardtransmithidden")&"&sel1="&request("boardsel1hidden")&"&dustbin="&request("boardHidden_dustbin")&"'>"
       elseif isBPartQuer2="yes" then
              if BPPagehidden2<>"" then
                    Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=BPartQuer.asp?boardid="&boardid2&"&page="&BPPagehidden2&"&keyword="&request("BPKeywordhidden")&"'>"
              else
                    Response.write"<META HTTP-EQUIV='Refresh' content='2; URL=BPartQuer.asp?boardid="&boardid2&"&keyword="&request("BPKeywordhidden")&"'>"
             end if 
       end if
end sub

%>
